How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/EGYPTW.DIR/01719_Script_Careers

Text File | 1995-09-13 | 12KB | 387 lines

global gQuest, gBeenClicked, gHouseIsOpen

on ECareersRollovers1
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(6) then
      repeat while rollover(6)
        EgyptCursor
        if gHouseIsOpen = 1 then
          ReplaceTheTemple
        else
          set the locH of sprite 28 to 440
          set the locV of sprite 28 to 167
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              AnimateLoopToFro 6, 1136, 4, 0, 2
            end if
          end if
        end if
      end repeat
      set the locH of sprite 28 to 940
      updatestage
    else
      if rollover(10) or rollover(11) or rollover(12) then
        ArrowCursor
        repeat while rollover(10) or rollover(11) or rollover(12)
          if gHouseIsOpen = 1 then
            ReplaceTheTemple
          else
            set the locH of sprite 39 to 492
            set the locV of sprite 39 to 203
            updatestage
          end if
        end repeat
        set the locH of sprite 39 to 992
        updatestage
      else
        if rollover(7) then
          EgyptCursor
          repeat while rollover(7)
            if gHouseIsOpen = 1 then
              ReplaceTheTemple
            else
              set the locH of sprite 14 to 440
              set the locV of sprite 14 to 356
              updatestage
              if the mousedown then
                set GBeenClicked = 1
              else
                if gBeenClicked = 1 then
                  AnimateLoopToFro 7, 1141, 4, 0, 2
                end if
              end if
            end if
          end repeat
          set the locH of sprite 14 to 940
          updatestage
        else
          if rollover(8) then
            EgyptCursor
            repeat while rollover(8)
              if gHouseIsOpen = 1 then
                ReplaceTheTemple
              else
                set the locH of sprite 15 to 304
                set the locV of sprite 15 to 268
                updatestage
                if the mousedown then
                  set GBeenClicked = 1
                else
                  if gBeenClicked = 1 then
                    AnimateLoopToFroSlow 8, 1146, 4, "SE300301.AIF", 1
                  end if
                end if
              end if
            end repeat
            set the locH of sprite 15 to 904
            updatestage
          else
            if rollover(9) then
              repeat while rollover(9)
                EgyptCursor
                if the mousedown then
                  set GBeenClicked = 1
                else
                  if gBeenClicked = 1 then
                    RemoveTheTemple
                  end if
                end if
              end repeat
              ArrowCursor
            else
              if rollover(13) then
                ArrowCursor
                repeat while rollover(13)
                  set the locH of sprite 43 to 313
                  set the locV of sprite 43 to 121
                  updatestage
                end repeat
                set the locH of sprite 43 to 913
                updatestage
              else
                if rollover(17) then
                  ArrowCursor
                  repeat while rollover(17)
                    if gHouseIsOpen = 1 then
                      set the locH of sprite 18 to 310
                      set the locV of sprite 18 to 221
                      updatestage
                    end if
                  end repeat
                  set the locH of sprite 18 to 910
                  updatestage
                else
                  if rollover(19) then
                    ArrowCursor
                    repeat while rollover(19)
                      if gHouseIsOpen = 1 then
                        set the locH of sprite 20 to 415
                        set the locV of sprite 20 to 205
                        updatestage
                      end if
                    end repeat
                    set the locH of sprite 20 to 915
                    updatestage
                  else
                    if rollover(22) then
                      ArrowCursor
                      repeat while rollover(22)
                        if gHouseIsOpen = 1 then
                          set the locH of sprite 21 to 555
                          set the locV of sprite 21 to 282
                          updatestage
                        end if
                      end repeat
                      set the locH of sprite 21 to 955
                      updatestage
                    else
                      if rollover(40) then
                        HandCursor
                      else
                        if rollover(41) then
                          HandCursor
                        else
                          if rollover(42) then
                            HandCursor
                          else
                            ArrowCursor
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on ECareersRollovers2
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(8) then
      repeat while rollover(8)
        EgyptCursor
        set the locH of sprite 10 to 366
        set the locV of sprite 10 to 315
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              AnimateLoopToFro 8, 1156, 4, 0, 1
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 10 to 999
      updatestage
    else
      if rollover(5) then
        repeat while rollover(5)
          EgyptCursor
          puppetsprite 16, true
          set the locH of sprite 16 to 344
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              set the locH of sprite 16 to 925
              updatestage
              ArrowShoot
              AnimateLoop 5, 1218, 7, "SE301101.AIFF", 1
            end if
          end if
        end repeat
        set the locH of sprite 16 to 925
        puppetsprite 16, false
        updatestage
      else
        if rollover(11) then
          ArrowCursor
          repeat while rollover(11)
            set the locH of sprite 12 to 349
            set the locV of sprite 12 to 157
            updatestage
          end repeat
          set the locH of sprite 12 to 949
          updatestage
        else
          if rollover(13) then
            repeat while rollover(13)
              EgyptCursor
              set the locH of sprite 14 to 390
              set the locV of sprite 14 to 327
              updatestage
              if the mousedown then
                set GBeenClicked = 1
              else
                if gBeenClicked = 1 then
                  set the locH of sprite 14 to 990
                  updatestage
                  repeat while gBeenClicked = 1
                    AnimateLoopToFro 3, 1225, 4, 0, 2
                  end repeat
                end if
              end if
            end repeat
            set the locH of sprite 14 to 990
            updatestage
          else
            if rollover(19) then
              ArrowCursor
              repeat while rollover(19)
                set the locH of sprite 20 to 384
                set the locV of sprite 20 to 228
                updatestage
              end repeat
              set the locH of sprite 20 to 999
              updatestage
            else
              if rollover(21) then
                repeat while rollover(21)
                  EgyptCursor
                  set the locH of sprite 22 to 486
                  set the locV of sprite 22 to 333
                  updatestage
                  if the mousedown then
                    set GBeenClicked = 1
                  else
                    if gBeenClicked = 1 then
                      set the locH of sprite 22 to 986
                      updatestage
                      repeat while gBeenClicked = 1
                        AnimateLoopToFro 3, 1225, 4, 0, 2
                      end repeat
                    end if
                  end if
                end repeat
                set the locH of sprite 22 to 999
                updatestage
              else
                if rollover(9) then
                  repeat while rollover(9)
                    EgyptCursor
                    set the locH of sprite 28 to 429
                    set the locV of sprite 28 to 332
                    updatestage
                    if the mousedown then
                      set GBeenClicked = 1
                    else
                      if gBeenClicked = 1 then
                        set the locH of sprite 28 to 929
                        updatestage
                        repeat while gBeenClicked = 1
                          AnimateLoopToFro 3, 1225, 4, 0, 2
                        end repeat
                      end if
                    end if
                  end repeat
                  set the locH of sprite 28 to 999
                  updatestage
                else
                  if rollover(40) then
                    repeat while rollover(40)
                      EgyptCursor
                      set the locH of sprite 43 to 486
                      set the locV of sprite 43 to 123
                      updatestage
                      if the mousedown then
                        set GBeenClicked = 1
                      else
                        if gBeenClicked = 1 then
                          repeat while gBeenClicked = 1
                            AnimateLoopToFro 7, 1167, 4, 0, 2
                          end repeat
                        end if
                      end if
                    end repeat
                    set the locH of sprite 43 to 999
                    updatestage
                  else
                    if rollover(39) then
                      HandCursor
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on RemoveTheTemple
  puppetsound "SE300500.AIF"
  updatestage
  wait .8
  set gHouseIsOpen = 1
  puppetsprite 9, true
  puppetsprite 16, true
  set the locH of sprite 9 to 900
  set the locH of sprite 16 to 164
  set the locV of sprite 16 to 245
  updatestage
end

on ReplaceTheTemple
  set gHouseIsOpen = 0
  set the locH of sprite 9 to 393
  set the locV of sprite 9 to 304
  set the locH of sprite 16 to -264
  puppetsprite 9, false
  puppetsprite 16, false
  updatestage
end

on ArrowShoot
  puppetsound "SE301100.AIF"
  puppetsprite 6, true
  set the locH of sprite 6 to -200
  updatestage
  Wait .2
  puppetsprite 15, true
  set the locH of sprite 15 to 178
  set the locV of sprite 15 to 329
  updatestage
  wait .2
  set the locH of sprite 15 to -478
  set the locH of sprite 6 to 75
  set the locV of sprite 6 to 296
  updatestage
  puppetsprite 6, false
  puppetsprite 15, false
  wait .8
end

on ResetTheTemple
  if gHouseIsOpen = 1 then
    set the locH of sprite 16 to -264
    puppetsprite 16, false
    updatestage
  else
    puppetsprite 9, true
    set the locH of sprite 9 to 900
    updatestage
    set gHouseIsOpen = 1
  end if
end